@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} |||||DOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}"" *2HH"+" U' # # E#L" B#,"C" * Щ*D"Z"& B( 1 *8["q" 0 * # ,}* * #r"" E# * E#""3 U' *Į"" # # E#L""" & * #λ& &""}(EDIT E EF H L S C X PASTE EQUAL GETCMD MAPCAR COMMANDS PSET SETP R A D B LI RE CONZ PRE I DEL G PP P PPRINT PPAUX MULTARGS P.}PARGS TABRET FORMATS LPAR BLANK RPAR LINE-WIDTH NCONC PU LOCK UNLOCK GETLST)(DEFINEQ EDIT '(LAMBDA (S-EXP) (PROG (CURR PREV /}X) T (PSET S-EXP) (SETQ PREV (LIST S-EXP)) LOOP (POKE 128 0) (COND ((EQ (SETQ X (GETCMD (QUOTE "> "))) (QUOTE EX)) (RETUR0}N (QUOTE EXIT)))) (POKE 128 63) (COND ((EQ X (QUOTE T)) (GO T)) ((MEMBER X COMMANDS) (APPLY* X)) ((PRIN2 (LIST (QUOTE ILL) (Q1}UOTE COMMAND-->) X)) (TERPRI))) (GO LOOP))))(DEFINEQ E '(LAMBDA NIL ((LAMBDA (X) (PROGN (SETQ S-EXP (COND ((EVAL X)) (T (PO2}KE 128 0) (PRIN1 (QUOTE -->)) (PRINT X) (SET X (GETLST (GETCMD (QUOTE "> "))))))) (GO T))) (READ))))(DEFINEQ E3}F '(LAMBDA NIL ((LAMBDA (X) (PROGN (SETQ S-EXP (COND ((GETD X)) (T (POKE 128 0) (PRIN1 (QUOTE -->)) (PRINT X) (DEFINE4} X (GETLST (GETCMD (QUOTE "> "))))))) (GO T))) (READ))))(DEFINEQ H '(LAMBDA NIL (PRIN1 (LIST (QUOTE COMMANDS:) COMMAND5}S))))(DEFINEQ L '(LAMBDA NIL ((LAMBDA (FILE) (PROGN (LOAD FILE) (PRIN1 (QUOTE "--> ")) (PRINT (EVAL FILE)))) (GETCMD 6}(QUOTE "> ")))))(DEFINEQ S '(LAMBDA NIL (PROGN (SAVE (EVAL (GETCMD (QUOTE "> "))) (GETCMD (QUOTE "> "))) 7}(PRINT (QUOTE )))))(DEFINEQ C '(LAMBDA NIL (DIR (READ))))(SETQ X 'S)(DEFINEQ X '(LAMBDA NIL (PROGN (PASTE CURR (RE8}AD) (READ)) (PSET CURR))))(DEFINEQ PASTE '(LAMBDA (X Y Z) (COND ((EQUAL X)) ((ATOM X)) ((EQUAL (CAR X) Y) (RPLACA X Z) (PAS9}TE (CDR X) Y Z)) (T (PASTE (CAR X) Y Z) (PASTE (CDR X) Y Z)))))(DEFINEQ EQUAL '(LAMBDA (X Y) (COND ((ATOM X) (EQ X Y)) ((AT:}OM Y) (EQ X Y)) ((AND (EQUAL (CAR X) (CAR Y)) (EQUAL (CDR X) (CDR Y)))))))(DEFINEQ GETCMD '(LAMBDA (X) (PROGN (POKE 128 0) ;}(TERPRI) (PRIN1 X) (READ))))(DEFINEQ MAPCAR '(LAMBDA (X FN) (COND ((EQ X) NIL) (T (CONS (APPLY* FN (CAR X)) (MAPCAR (CDR X)<} FN))))))(SETQ COMMANDS '(A D B P R DEL I G LI RE PP PRE C E EF X S L H PU LOCK UNLOCK))(DEFINEQ PSET '(LAMBDA (L) (PRINT=} (CAR (SETQ CURR L)))))(DEFINEQ SETP '(LAMBDA (FUNCTION) (COND ((ATOM (APPLY* FUNCTION CURR)) (PRINT (QUOTE ))) >}(T (SETQ PREV (CONS CURR PREV)) (PSET (APPLY* FUNCTION CURR))))))(DEFINEQ R '(LAMBDA NIL (PRINT (CAR (RPLACA CURR (READ))))?}))(SETQ A '(A))(DEFINEQ A '(LAMBDA NIL (SETP (QUOTE CDR))))(DEFINEQ D '(LAMBDA NIL (SETP (QUOTE CAR))))(DEFINEQ B '(L@}AMBDA NIL (COND ((EQ (CDR PREV)) (PRINT (QUOTE )) (PSET CURR)) (T (PSET (CAR PREV)) (SETQ PREV (CDR PREV))))))(DA}EFINEQ LI '(LAMBDA NIL (PSET (RPLACA CURR (LIST (CAR CURR))))))(DEFINEQ RE '(LAMBDA NIL (COND ((ATOM (CAR CURR)) (PRIN1 (QUB}OTE )) (TERPRI)) (T (PROG NIL (NCONC (CAR CURR) (CDR CURR)) (PSET (CONZ CURR (CAR (CAR CURR)) (CDR (CAR CURR)))))))C}))(DEFINEQ CONZ '(LAMBDA (X Y Z) (RPLACA (RPLACD X Z) Y)))(DEFINEQ PRE '(LAMBDA NIL (PSET (RPLACA CURR (CONS (READ) (LISTD} (CAR CURR)))))))(DEFINEQ I '(LAMBDA NIL (PROG NIL (RPLACD CURR (CONS (READ) (CDR CURR))) (A))))(DEFINEQ DEL '(LAMBDA NILE} (PROG NIL ((LAMBDA (X) (COND ((EQ CURR X) (CONZ CURR (CAR (CDR CURR)) (CDR (CDR CURR)))) ((EQ CURR (CDR X)) (RPLACD X (CDR CF}URR))) (T (RPLACA X (CDR CURR))))) (CAR PREV)) (B))))(DEFINEQ G '(LAMBDA NIL (PROG (X Y) (SETQ Y CURR) L (SETQ X (GETCMD (QG}UOTE "> "))) (COND ((EQ X (QUOTE A)) (COND ((EQ (CDR Y)) (PRINT (QUOTE ))) (T (PRINT (CAR (SETQ Y (CDR Y)))))H})) ((EQ X (QUOTE G)) (RETURN (COND ((EQ CURR Y) (LI)) (T (CONZ CURR (CONS (CAR CURR) (CDR CURR)) (CDR Y)) (RPLACD Y NIL) (PRII}NT (CAR CURR)))))) (T (RETURN (PRINT (QUOTE ))))) (GO L))))(DEFINEQ PP '(LAMBDA NIL (PPRINT S-EXP 2)))(DEFINEQ P 'J}(LAMBDA NIL (PPRINT (CAR CURR) 2)))(DEFINEQ PPRINT '(LAMBDA (X IND) (PROG (TFLG) (PPAUX X IND) (TERPRI))))(DEFINEQ PPAUX K}'(LAMBDA (X INDTN) (COND ((ATOM X) (PRIN2 X) (SETQ TFLG)) ((ATOM (CAR X)) ((LAMBDA (Y) (COND (Y (MULTARGS X INDTN (CDR Y))) (L}(PROGN (PRIN1 LPAR) (PRIN2 (CAR X)) (PPARGS (CDR X) INDTN) (PRIN1 RPAR) (SETQ TFLG))))) (ASSOC (CAR X) FORMATS))) (((LAMBDA (M}IND1) (PROGN (PRIN1 LPAR) (SETQ TFLG T) (PPAUX (CAR X) IND1) (TABRET INDTN) (PPARGS (CDR X) IND1) (PRIN1 RPAR) (SETQ TFLG))) N}(+ INDTN))))))(DEFINEQ MULTARGS '(LAMBDA (X INDTN L) ((LAMBDA (INDTN2) (PROGN (TABRET INDTN) (PRIN1 LPAR) (PRIN2 (CAR X)) (O}PRIN1 BLANK) (PPAUX (CAR (CDR X)) INDTN2) (COND ((CDR (CDR X)) (MAPCAR (CDR (CDR X)) (QUOTE (LAMBDA (Y) (PROG NIL (TABRET INDP}TN2) (PPAUX Y INDTN2))))))) (PRIN1 RPAR) (SETQ TFLG))) (+ INDTN (CAR L)))))(DEFINEQ PPARGS '(LAMBDA (X INDTN) (PROG NIL LOOQ}P (COND ((EQ X) (RETURN))) (PRIN1 BLANK) (PPAUX (CAR X) INDTN) (SETQ X (CDR X)) (GO LOOP))))(DEFINEQ TABRET '(LAMBDA (N) (PR}ROG NIL (COND (TFLG (RETURN)) ((TERPRI))) (SETQ TFLG T) (COND ((> N LINE-WIDTH) (TERPRI) (TAB (SUB N LINE-WIDTH))) ((TAB N)))S})))(SETQ FORMATS '((COND 6) (LAMBDA 2) (PROG 6) (PROGN 7) (AND 5) (OR 4) (MAPCAR 8) (NLAMBDA 2) (MACRO 2)))(SETQ LPAR '"(T}")(SETQ BLANK '" ")(SETQ RPAR '))(SETQ LINE-WIDTH '39)(DEFINEQ NCONC '(LAMBDA (X Y) (PROGN (RPLACD (LAST X) Y) X)))U}(DEFINEQ PU '(LAMBDA NIL ((LAMBDA (X) (PROGN (COND ((EQ (GETCMD (QUOTE "٧> ")) (QUOTE Y)) (XIO 33 7 0 0 X) V}(CLOSE 7))) (DIR))) (READ))))(DEFINEQ LOCK '(LAMBDA NIL ((LAMBDA (X) (PROGN (XIO 35 7 0 0 X) (CLOSE 7))) (READ))))(DEFINEW}Q UNLOCK '(LAMBDA NIL ((LAMBDA (X) (PROG (STAT) (SETQ STAT (XIO 36 7 0 0 X)) (COND ((EQ STAT 1)) (T (PRIN1 (QUOTE ͠X}Һ)) (PRINT STAT))) (CLOSE 7))) (READ))))(DEFINEQ GETLST '(LAMBDA (X) (COND ((ATOM X) (LIST X)) (X))))NILOTE ͠n(DOCTOR RESTRICT MATCH BADWORDS BADWORD ATOMCAR ATOMCDR TEST)(DEFINEQ DOCTOR '(LAMBDA NIL (PROG (L MOTHER S) (POKE 128 0) (P Z}RINT (QUOTE (SPEAK UP))) LOOP (SETQ S (READ)) (COND ((ATOM S) (SETQ S (LIST S)))) (COND ((MATCH (QUOTE (I AM WORRIED +L)) S) [}(PRINT (APPEND (QUOTE (HOW LONG HAVE YOU BEEN WORRIED)) L))) ((MATCH (QUOTE (+ MOTHER +)) S) (SETQ MOTHER T) (PRINT (QUOTE (T \}ELL ME MORE ABOUT YOUR FAMILY)))) ((MATCH (QUOTE (+ COMPUTERS +)) S) (PRINT (QUOTE (DO MACHINES FRIGHTEN YOU)))) ((OR (MATCH ]}(QUOTE (NO)) S) (MATCH (QUOTE (YES)) S)) (PRINT (QUOTE (PLEASE DO NOT BE SO SHORT WITH ME)))) ((MATCH (QUOTE (+ (RESTRICT > B ^}ADWORD) +)) S) (PRINT (QUOTE (PLEASE DO NOT USE WORDS LIKE THAT)))) (MOTHER (SETQ MOTHER NIL) (PRINT (QUOTE (EARLIER YOU SPOK _}E OF YOUR MOTHER)))) (T (PRINT (QUOTE (I AM SORRY OUR TIME IS UP))) (RETURN (QUOTE GOODBYE)))) (GO LOOP))))(DEFINEQ MATCH ' `}(LAMBDA (P D) (COND ((AND (EQ P) (EQ D)) T) ((OR (EQ P) (EQ D)) NIL) ((EQ (ATOM (CAR P))) (COND ((AND (EQ (CAR (CAR P)) (QUOT a}E RESTRICT)) (EQ (CAR (CDR (CAR P))) (QUOTE >)) (TEST (CDR (CDR (CAR P))) (CAR D))) (MATCH (CDR P) (CDR D))) ((AND (EQ (CAR ( b}CAR P)) (QUOTE RESTRICT)) (EQ (ATOMCAR (CAR (CDR (CAR P)))) (QUOTE >)) (TEST (CDR (CDR (CAR P))) (CAR D)) (MATCH (CDR P) (CDR c} D))) (SET (ATOMCDR (CAR (CDR (CAR P)))) (CAR D)) T))) ((OR (EQ (CAR P) (QUOTE >)) (EQ (CAR P) (CAR D))) (MATCH (CDR P) (CDR d}D))) ((AND (EQ (ATOMCAR (CAR P)) (QUOTE >)) (MATCH (CDR P) (CDR D))) (SET (ATOMCDR (CAR P)) (CAR D)) T) ((EQ (CAR P) (QUOTE + e})) (COND ((MATCH (CDR P) (CDR D)) T) (T (MATCH P (CDR D))))) ((EQ (ATOMCAR (CAR P)) (QUOTE +)) (COND ((MATCH (CDR P) (CDR D)) f} (SET (ATOMCDR (CAR P)) (LIST (CAR D))) T) ((MATCH P (CDR D)) (SET (ATOMCDR (CAR P)) (CONS (CAR D) (EVAL (ATOMCDR (CAR P))))) g} T))))))(SETQ BADWORDS '(DARN HELL))(DEFINEQ BADWORD '(LAMBDA (WORD) (MEMBER WORD BADWORDS)))(DEFINEQ ATOMCAR '(LAMBDA h}(X) (CAR (UNPACK X))))(DEFINEQ ATOMCDR '(LAMBDA (X) (PACK (CDR (UNPACK X)))))(DEFINEQ TEST '(LAMBDA (PREDICATES ARGUMENT) i} (PROG NIL LOOP (COND ((EQ PREDICATES) (RETURN T))) (COND ((APPLY* (CAR PREDICATES) ARGUMENT) (SETQ PREDICATES (CDR PREDICATE j}S)) (GO LOOP)) (T (RETURN))))))NILRD ATOMCAR ATOMCDR TEST)(DEFINEQ DOCTOR '(LAMBDA NIL (PROG (L MOTHER S) (POKE 128 0) (P %(HANOI OTHER MOVE DISPLAY HLIN CADR LOC VTAB GOXY)(DEFINEQ HANOI '(LAMBDA NIL (PROG (ONE TWO THREE) (GR 20) (PAGE) (POKE 752l} 1) (TAB 4) (PRIN1 (QUOTE -ONE-)) (TAB 17) (PRIN1 (QUOTE -TWO-)) (TAB 29) (PRINT (QUOTE -THREE-)) (COL 1) (HLIN 13 13 20) (HLm}IN 11 15 22) (HLIN 9 17 24) (HLIN 7 19 26) (HLIN 5 21 28) (HLIN 3 23 30) (HLIN 1 25 32) (SETQ ONE (QUOTE (0 1 2 3 4 5 6))) (Mn}OVE 7 (QUOTE ONE) (QUOTE THREE)) (READC) (SOUND 0 0 0 0) (POKE 752 0))))(DEFINEQ OTHER '(LAMBDA (X Y) (COND ((EQ X (QUOTE Oo}NE)) (COND ((EQ Y (QUOTE TWO)) (QUOTE THREE)) (T (QUOTE TWO)))) ((EQ X (QUOTE TWO)) (COND ((EQ Y (QUOTE ONE)) (QUOTE THREE)) p}(T (QUOTE ONE)))) ((EQ X (QUOTE THREE)) (COND ((EQ Y (QUOTE ONE)) (QUOTE TWO)) (T (QUOTE ONE)))))))(DEFINEQ MOVE '(LAMBDA (q}D E F) (COND ((EQ D 1) (PROGN (SET F (CONS (CAR (EVAL E)) (EVAL F))) (SET E (CDR (EVAL E))) (DISPLAY E F))) (T (PROGN (MOVE (r}SUB D 1) E (OTHER E F)) (SET F (CONS (CAR (EVAL E)) (EVAL F))) (SET E (CDR (EVAL E))) (DISPLAY E F) (MOVE (SUB D 1) (OTHER E s}F) F))))))(DEFINEQ DISPLAY '(LAMBDA (X Y) (PROG NIL (SETQ Z (CAR (EVAL Y))) (COL 0) (HLIN (SUB (CADR (ASSOC X LOC)) (+ Z Z)t}) (+ (CADR (ASSOC X LOC)) (+ Z Z)) (+ (+ Z Z) 20)) (COL 1) (HLIN (SUB (CADR (ASSOC Y LOC)) (+ Z Z)) (+ (CADR (ASSOC Y LOC)) (u}+ Z Z)) (+ (+ Z Z) 20)) (GOXY 10 2) (PRIN1 (LIST (QUOTE MOVE) X (QUOTE TO) Y)) (PRIN1 (QUOTE " ")) (SOUND 0 (+ 120 (* 10 Z))v} 10 15))))(DEFINEQ HLIN '(LAMBDA (X1 X2 Y) (PROGN (PLOT X1 Y) (DRAW X2 Y))))(DEFINEQ CADR '(LAMBDA (X) (CAR (CDR X))))(w}SETQ LOC '((ONE 13) (TWO 40) (THREE 66)))(DEFINEQ VTAB '(LAMBDA (R) (POKE 656 R)))(DEFINEQ GOXY '(LAMBDA (X Y) (PROGN (VTx}AB Y) (TAB X))))NILLAY HLIN CADR LOC VTAB GOXY)(DEFINEQ HANOI '(LAMBDA NIL (PROG (ONE TWO THREE) (GR 20) (PAGE) (POKE 752(CLISP TRANSLATE WEIGHT OPCODE)(DEFINEQ CLISP '(LAMBDA (FUN) (DEFINE FUN (TRANSLATE (GETD FUN)))))(DEFINEQ TRANSLATE '(LAMz}BDA (S-EXP) (PROG (OPERANDS OPERATORS) (COND ((ATOM S-EXP) (RETURN S-EXP))) (COND ((EQ (OPCODE (CAR (CDR S-EXP)))) (RETURN (M{}APCAR S-EXP (QUOTE TRANSLATE))))) (SETQ OPERATORS (QUOTE (DUMMY))) STUFF (COND ((EQ S-EXP) (COND ((EQ (CAR OPERATORS) (QUOTE |}DUMMY)) (RETURN (QUOTE *ERROR*))) (T (RETURN (LIST (TRANSLATE (CAR OPERANDS)) (TRANSLATE (CAR OPERATORS)))))))) (SETQ OPERAND}}S (CONS (COND ((ATOM (CAR S-EXP)) (CAR S-EXP)) ((TRANSLATE (CAR S-EXP)))) OPERANDS)) (SETQ S-EXP (CDR S-EXP)) SCAN (COND ((AN~}D (EQ S-EXP) (EQ (CAR OPERATORS) (QUOTE DUMMY))) (RETURN (CAR OPERANDS)))) (COND ((OR (EQ S-EXP) (EQ (> (WEIGHT (CAR S-EXP)) }(WEIGHT (CAR OPERATORS))))) (SETQ OPERANDS ((LAMBDA (X) (COND ((EQ X) (CONS (LIST (CAR (CDR OPERANDS)) (CAR OPERATORS) (CAR O}PERANDS)) (CDR (CDR OPERANDS)))) (T (CONS (LIST X (CAR (CDR OPERANDS)) (CAR OPERANDS)) (CDR (CDR OPERANDS)))))) (OPCODE (CAR }OPERATORS)))) (SETQ OPERATORS (CDR OPERATORS)) (GO SCAN)) (T (SETQ OPERATORS (CONS (CAR S-EXP) OPERATORS)) (SETQ S-EXP (CDR S}-EXP)) (GO STUFF))))))(DEFINEQ WEIGHT '(LAMBDA (OP) (COND ((EQ OP (QUOTE DUMMY)) -1) ((EQ OP (QUOTE =)) 0) ((EQ OP (QUOTE +})) 1) ((EQ OP (QUOTE -)) 1) ((EQ OP (QUOTE *)) 2) ((EQ OP (QUOTE /)) 2) (T 4))))(DEFINEQ OPCODE '(LAMBDA (OP) (COND ((EQ OP} (QUOTE DUMMY)) (QUOTE DUMMY)) ((EQ OP (QUOTE =)) (QUOTE SETQ)) ((EQ OP (QUOTE +)) (QUOTE +)) ((EQ OP (QUOTE -)) (QUOTE SUB))} ((EQ OP (QUOTE *)) (QUOTE *)) ((EQ OP (QUOTE /)) (QUOTE /)))))NIL FUN (TRANSLATE (GETD FUN)))))(DEFINEQ TRANSLATE '(LAME(FUNCALL DEFPROP PUTPROP NCONC GET MAPCAR EQUAL DELETE SUBST REVERSE REMPROP CONZ GENSYM DEFUN MACFNS)(DEFINEQ FUNCALL '(MAC}RO (S) (CONS (QUOTE APPLY*) (CDR S))))(DEFINEQ DEFPROP '(NLAMBDA (A) ((LAMBDA (ID PROP NAME) (PROGN (COND ((ASSOC NAME MACF}NS) (DEFINE ID (CONS (CAR (CDR (ASSOC NAME MACFNS))) (CDR PROP)))) ((EQ (EVAL ID)) (SET ID (LIST NAME PROP))) (T (SET ID (CON}S NAME (CONS PROP (EVAL ID)))))) ID)) (CAR A) (CAR (CDR A)) (CAR (CDR (CDR A))))))(DEFINEQ PUTPROP '(LAMBDA (ID PROP NAME) }(PROGN (COND ((ASSOC NAME MACFNS) (DEFINE ID (CONS (CAR (CDR (ASSOC NAME MACFNS))) (CDR PROP)))) ((EQ (EVAL ID)) (SET ID (LIS}T NAME PROP))) (T (SET ID (CONS NAME (CONS PROP (EVAL ID)))))) ID)))(DEFINEQ NCONC '(LAMBDA (X Y) (PROGN (RPLACD (LAST X) Y}) X)))(DEFINEQ GET '(LAMBDA (ID NAME) (COND ((ASSOC NAME MACFNS) (CONS (QUOTE LAMBDA) (CDR (GETD ID)))) ((CAR (CDR (MEMBER }NAME (EVAL ID))))))))(DEFINEQ MAPCAR '(LAMBDA (X FN) (COND ((EQ X) NIL) (T (CONS (APPLY* FN (CAR X)) (MAPCAR (CDR X) FN))))}))(DEFINEQ EQUAL '(LAMBDA (X Y) (COND ((ATOM X) (EQ X Y)) ((ATOM Y) (EQ X Y)) ((AND (EQUAL (CAR X) (CAR Y)) (EQUAL (CDR X) }(CDR Y)))))))(DEFINEQ DELETE '(LAMBDA (X Y) (COND ((EQ Y) NIL) ((EQUAL X (CAR Y)) (DELETE X (CDR Y))) ((CONZ Y (CAR Y) (DEL}ETE X (CDR Y)))))))(DEFINEQ SUBST '(LAMBDA (X Y Z) (COND ((EQUAL Y Z) X) ((ATOM Z) Z) ((CONS (SUBST X Y (CAR Z)) (SUBST X Y} (CDR Z)))))))(DEFINEQ REVERSE '(LAMBDA (X) (COND ((ATOM X) X) ((APPEND (REVERSE (CDR X)) (LIST (CAR X)))))))(DEFINEQ REM}PROP '(LAMBDA (ID NAME) (COND ((ASSOC NAME MACFNS) (DEFINE ID NIL) ID) (T ((LAMBDA (Y) (COND ((EQ Y) Y) (T ((LAMBDA (Z) (CONZ} Z (CAR (CDR Z)) (CDR (CDR Z)))) (DELETE (CAR (CDR Y)) Y)) ID))) (MEMBER NAME (EVAL ID)))))))(DEFINEQ CONZ '(LAMBDA (X Y Z)} (RPLACA (RPLACD X Z) Y)))(DEFINEQ GENSYM '(LAMBDA NIL (PACK (CONS (QUOTE G0) (RPLACA (QUOTE (0)) (+ (CAR (CAR (CDR (CAR (C}DR (CAR (CDR (CDR (CAR (CDR (CAR (CDR (CDR (GETD (QUOTE GENSYM))))))))))))))) 1))))))(DEFINEQ DEFUN '(MACRO (S) (CONS (QUOT}E DEFPROP) (CONS (CAR (CDR S)) ((LAMBDA (X) (COND ((ASSOC X MACFNS) (LIST (CONS (QUOTE LAMBDA) (CDR (CDR (CDR S)))) X)) ((LIS}T (CONS (QUOTE LAMBDA) (CDR (CDR S))) (QUOTE EXPR))))) (CAR (CDR (CDR S))))))))(SETQ MACFNS '((EXPR LAMBDA) (FEXPR NLAMBDA)} (MACRO MACRO)))NILOP NCONC GET MAPCAR EQUAL DELETE SUBST REVERSE REMPROP CONZ GENSYM DEFUN MACFNS)(DEFINEQ FUNCALL '(MAC D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  }hhh@ح)$`TTPC==A>(@`|TtTP8xHxXPh$=g>TP$PPPP8P=LT0P@P(PXP,}pPPD=>6=TXP8QxQ='>@`TT  P|P>y=$XČ @0hpG=>,.dfT| )XP`88H>=?,}axT||P$g>'?T`H$>r?TPXPhPxPP>>EVTT >>@T PP|P>>@@TT$P4P,} >>T D>A>08TT%hPPg>?TLxPPd> @=T 8PhP$-@LTDTLTTTH`H$`@PTDTT,}TH`HD?>@BTTPr??CJTTTP(PHPhP??AT$??@X`TT`P$??+AaATT$?nA%TP,} P0P@PPPP @?``TT)PB?-@ PT̅%0@p`ȀdȀhȀD @;@;?dT$-@A0T P$`@A0U%HPPDL@w,}@X?@`TT0P@P`@@,P(P$P P (SETQ ST (+ ST 1)) 8) (GO AGAIN)) }) (GR 23) (POKE 752 1) (TERPRI) (TAB 14) (PRIN1 (QUOTE " ")) (SETCOL 2 0 0) (SETCOL 1 (+ ST ST) 4) (COL 2) (PROG NI }L (SETQ DR 0) LOOP (PLOT 80 0) (DRAW DR 80) (COND ((> (SETQ DR (+ DR ST)) 160) (WAIT 150) (RETURN))) (GO LOOP)) (GO LOOP)))) }(DEFINEQ WAIT '(LAMBDA (X) (PROG (Y) (SETQ Y X) LOOP (COND ((EQ Y 0) (RETURN)) ((SETQ Y (SUB Y 1)) (GO LOOP))))))NILAIN)) x(CALC PUSH POP BINARY UNARY - E N L S D P)(DEFINEQ CALC '(LAMBDA NIL (PROG (X Y OP STACK) LOOP (POKE 128 0) (TERPRI) (PRINT $}STACK) (TERPRI) (PRIN1 (QUOTE "> ")) (SETQ IN (READ)) (COND ((# IN) (PUSH IN)) ((MEMBER IN BINARY) (PUSH (APPLY* IN (POP$}) (POP)))) ((MEMBER IN UNARY) (PUSH (APPLY* IN (POP)))) ((EQ IN (QUOTE Q)) (RETURN)) (T (PRIN1 (QUOTE "")))) (GO LOOP))))($}DEFINEQ PUSH '(LAMBDA (ITEM) (SETQ STACK (CONS ITEM STACK))))(DEFINEQ POP '(LAMBDA NIL (PROG (X) (SETQ X (CAR STACK)) (SETQ$} STACK (CDR STACK)) X)))(SETQ BINARY '(+ * - / P))(SETQ UNARY '(E L N D S))(DEFINEQ - '(LAMBDA (X Y) (SUB X Y)))(DEFI$}NEQ E '(LAMBDA (X) (EXP X)))(DEFINEQ N '(LAMBDA (X) (SUB 0 X)))(DEFINEQ L '(LAMBDA (X) (LOG X)))(DEFINEQ S '(LAMBDA (X)$} (EXP (/ (LOG X) 2))))(DEFINEQ D '(LAMBDA (X) (PROGN (PUSH X) X)))(DEFINEQ P '(LAMBDA (X Y) (EXP (* Y (LOG X)))))NILT ${(RAN GOXY VTAB TIME MOD HLIN VLIN REFLECT NORMAL)(DEFINEQ RAN '(LAMBDA (RANGE) (* RANGE (/ (+ (PEEK 53770) (* 256 (PEEK 5377(}0))) 65536))))(DEFINEQ GOXY '(LAMBDA (X Y) (PROGN (VTAB Y) (TAB X))))(DEFINEQ VTAB '(LAMBDA (R) (POKE 656 R)))(DEFINEQ (}TIME '(LAMBDA NIL (PROG (TIME HOURS MINUTES SECONDS) (SETQ TIME (INT (/ (+ (* (PEEK 18) 4048) (+ (* (PEEK 19) 256) (PEEK 20))(}) 60))) (SETQ HOURS (INT (SUB (/ TIME 3600) .5))) (SETQ MINUTES (INT (SUB (/ (SUB TIME (* 3600 HOURS)) 60) .5))) (SETQ SECOND(}S (SUB TIME (+ (* HOURS 3600) (* MINUTES 60)))) (COND ((> 10 HOURS) (PRIN1 0))) (PRIN1 HOURS) (PRIN1 (QUOTE :)) (COND ((> 10 (}MINUTES) (PRIN1 0))) (PRIN1 MINUTES) (PRIN1 (QUOTE :)) (COND ((> 10 SECONDS) (PRIN1 0))) (PRINT SECONDS) (RETURN TIME))))(D(}EFINEQ MOD '(LAMBDA (X Y) (SUB X (* (INT (SUB (/ X Y) .5)) Y))))(DEFINEQ HLIN '(LAMBDA (X1 X2 Y) (PROGN (PLOT X1 Y) (DRAW X(}2 Y))))(DEFINEQ VLIN '(LAMBDA (Y1 Y2 X) (PROGN (PLOT X Y1) (DRAW X Y2))))(DEFINEQ REFLECT '(LAMBDA NIL (POKE 755 4)))(D(}EFINEQ NORMAL '(LAMBDA NIL (POKE 755 2)))NILL)(DEFINEQ RAN '(LAMBDA (RANGE) (* RANGE (/ (+ (PEEK 53770) (* 256 (PEEK 5377(/`0j`8` """0ģ` &"# #` & 3#`#+# * &L&˥ȥʈ`,#A# &̥ͥȑ}̈`B#W# * P#L# * X#`X#o#ɕơL# "L'p##( ;2HH( * &## X#, & "$## #HH} & X#hhL### #. * # X#hh)L*## L*& *`## *ɕ#$ .L1"0j$&$}̨̪ &`'$=$`( ;2HHH>$U$HHH o) #ȥ̥V$l$̄m$$0> * #*BDx**EHILVE** *R ** B**HIDE V}**` c4 ٥ *`**:8j *+…栩Ʃ :++©`+++`,+C+xԆ} +r2D+Z+ O+腼([+q+ͱ$ ) Ir++IŢȆǤ++8ʆ$}++Ǒ̄ȥȑ̈L+IL+++X`++j +,++Ɠ$,,I} jȱ,.,ܤ +, +,M/,F,`Iȱ̥̅G,^, ̤چˆ͘jӱ_,u,$Ъʑ̥ ʆȱ̪}v,,̥ʆˆˆ ,,нj#ʪ$вȱ ,,ʥ L,LK,$̾,,Џ̪Iȱㆷ,,̥ }̐ȦˆL~,,-` * "--L&` * "L&L7"-3- & * o)4-J-` & " K}-b- *`hhhL7"c-z-88 A- #L-{-- A-( "` #--` &05` &-- m4 *섍} 4 `ڥ-- *0ąˤ`-- &5 "1ͱ̅ȱ̅-. & #ᤝ &.. #L-`L# & ".6}.L**LP# * "07.L. &"M.d.L'ȱ " *򤅦`e.|.ȑ`ơ`}.. **P0*})1*Ɠ..L**0*11*L** **..L** **L** BL... * 0 * "( &*..EDBԝJ Vԩ./} L3L7" 0ԅ // * 0ԅ 0 * "݈/6/ &*EDBJ7/L/ԝKL. *&B .M/c/*LԽM 3}d/z/*Nԩ 3L)-{// *%B 0*ԝLՑ//M 0*)NL.// " & #// &L}/``// 0 0?0pB/0>D0EJK .00# *' 60L&p E0#Ɉ020ɛ * *30I0}L0p .L**D1:*.*BJ0a0DEIHL.b0y0p* .# 0z00` *'* .Ɛ00 U' & " U' $}İ00者Ʃ .pL.` .00ʈ 0) 00)Ԣ`*0L"/S:01 c4LѦ *' *'11} *' %141!҆ф & #51K1 &҄ % &L1c1 &҄Ѥ` L7" &d1y1j &}z11L1ѪѨφ҄ &j11 &ĝݠ`*11BHI V0` .11`8` & "0ģ11 }*` L7"12 1L# 1L3# )22 & & 272 )L2 &L&XԠơ82O2L7"xԤ¥ }2P2g2ˆĈׄºr2r2h22x2h22hXԤ`xԘ22r22222}r2r222м 2L28822ȥ͑̊򨥗ȥ̤̈́23` ,+&&e3$3e…8凅ԥ刅} %3;3L3} *L**Ʃ*<3S3  (L\(T3k3 ؐ`hh 3L!)l33DŽ &ȄǠԑȑ33}`ћ33䂐 ,+ ơL7"33L7" y3i`33 30ȱ0 *)33 *`ȱ}34󅝩4'4L " & #(4>4 &L4`?4V4 " & #䤙 &W4n4L?4}` &0LFڠo44ȱՠ`44 &0LFڠȱ44` c4 4 fڲ44L3 c4 L3 c4 44L}3 c4 4L` 4L344 40`` 044ԍ4L**45 0) 0 5+5 0 )L** G5,5C54 L*}* G5`B .D5[5L** 0ԅUՅV 0ԅT4\5r5` 0) 0ԅs55 0 0Ҋ55L** 0Ԧխ} 55L**UVL** 055ԅԄ L3 c4 ٦ԥ55 c4 ٥Ԡ` c456 4 L3 c4 4 (L366 c4 f}J $ 6-6 D `L3ơr2.6D6#L" &E6[6Ԣp** .# \6r6 6` E#s66} &; *' $ 666 & ' 6 & #Մ66 6 ' 666 E#*pL. #' * E#66) *L#( * #L}#L7"66 &* " c4 ٥67ԅƞ0Ɲ &7,7`8f & &-7D7` &` &E7[7$0} &ěङ$0\7s7L& Ӎө Ӎ 0t77)jӰ)J77JJJԩ Ly3 077)`L**} &77L**j0 & )77 ( \( )78 &L&L7"88 & &0j &808} (L\(18G8 &+ * *H8_8 E#` & $`8u8 )-L$ԅ * "v88 8 L3 *}ȍ88 &`NILT().88'QUOTELAMBDANLAMBDA88SUBRNSUBRRESETRETURN88MACROEVAL#GETD#88CAR,CDR }-PRINT@#89PRIN1'.PRIN2K#CONS-9,9APPEND2SETx-DEFINEf--9B9EQ-STICK_7STRIG7C9X9READS'QUOTE*COND-Y9p9SUBR},BAKTRACE18APPLY*q99P8READA'XIO/NOTE99?/POINTy/RPLACA199RPLACD1UNPACK7PACK997PLOT'5COL4DRAW559}9SETCOL4SOUND`5TAB599PEEK5POKE5ATOM.#9:-+4SUB4*5/5INT:%:6>4EXP4LOG4@6&:;:LISTc.CLOSE}.OPEN.<:S:LOADa0DIR/SAVE<6IN#T:j:{.PR#.ASSOC7MEMBERk::7LAST8LENGTHf8PROGN::/DEFINEQa-SETQk-::RESET}r.BREAK%"NEW"::OBLIST/GR0TERPRI$*::PROG0GO]1RETURN#MEM::2PAGE(3READC23OR4:;AND54S= }; ; *L;#% !;6;6  D<7;M; *8 (N;d;˱+e;|;Ȅ}˱Рڢ8};; ( "+++;; "ܢ8 ;;; 3#;; 3# 3# 3# ;;;} ;襬;< L< ( < <˪!<7<L<˱L<8>> INTER-LISP/65 <?,}  ,} ,} ,}   ,}                      ,}-}   -}   -}   -} /-./.,  /.., . /, .,  -/  --      -}              -}     -} XYXY Z[Z[    -}   -}     - }        - }         - }   - }   ,.///.,-/.-, -,- }-.-  -}     -}                  -}       -}  /-,/-,-/  ..,.,/   -}  -  /, .,  -}       -}   -} /.  -}     -}                 -}  -}  -}    -} ,./ ./  -}             -}   .././,,/    -}   -}                     - } -!} -"} -#} -$} -%} -&}     -'}                       -(}-)}     -*}   ., .,    -+}    -,}    --}   ,/.  ..,    -.}      -/}       -0}   -1}      -2}    -3}     -4}   -5}   -6}  -7}    -8} -9}  -:}   -;}   -<}   -=}   ->}      -?}    -@} -A}  ,}   -C}   -D} -E}       -F}     -G}   -H} -I} -J} .-/,.-/,.-,-K},/-/,,-.,/-,//.-,//.    -L}        -M}      -N} -O}    -P}     -Q}  -R}   ./ -S} /  ,   .-.-,.. -T}      -U}  -V}./   ./   ./ /.     -W}    -X}  -Y}-Z}   -[}   -\}   -]}  -^}  -_}   -`}   -a}  -b}        -c}    -d}   -e}         -f}       -g}    -h}b'DOS SYSbB+AUTORUN SYSb,-EDIT bYDOCTOR bkHANOI b yCLISP bMACLISP S bLIGHTS bCALC b UTILS GETXS OBJA} B'DOS SYSB@A BB}}  -n}    -o}    -p}    -q}    -r}   -s}  )))))  )))))) -t} ))))) -u} -v} )  ) -w} )  )) -x})) ) )) -y})  ))) /--/.,-/.-/,,-,.//,-.,///.,--,..)) -z}))) ))  -{} 01 23 -|}  -}}456789:;<=>?-~}@ABCDEFGHIJK-}LMNOPQRS-}-}///,,--,../.,-,//,.-,//..,,-/..,,--..,-.-} -}   -}  -}-}    -}   -}   -}    /,,--,../.,-,//,.-,//..,,-}-/..,,--..,    -} p@UTP@-}UU@UU@UUPP@@PUP@UUTPUUPUUPUUPPP@PPUU@P@UU@UPUUPUUPUUPPP@UTQUUPTUPUU@UEPUUPU-}UPUUPPTUPUTAUUPTUPUUPUUPQPUPUP@PUUPUUUUPUUPUUPUUPQPUPU@UUPUUPUU@UUPUUPTUPUUPPU@U-}@UUPUUPUU@UTUUPPPUUPPUUUUUUPUUPUUPUTUUP@PUUPPUU@UUUUPUUPUUPUUUUP@PUUPPUUUTUUP-}UUPPPUU@UUPPPUUPPU@UPUUPUUPPPUUP*****UPUUPUUPUUPUUP*********-} ********** ** ** ***** * /ª* * * * -} ? * *0 -}0-}???<<<  -}<0<?3<<? ? <3-} <0< 00< 00 00< -} 03< 0< 0< < ?-}<?0<<<-}< 0-}<< -}-}? ?-}-}  ,1}-Le,HJJJJ--r-b----) --k ,h)-k -L+----`--`--9,1}-:,-H)-JJJJ--h)--) --k `-JJJJJk ҙҝ--L+- --) --L+ ,--)1}-"-B-L+& }----i--i)-L,0-8)- }-----"-B-L+ ,-- ,.-1} ,L+7 ,b- ,c-HHH L-Ld- ,-0 ,H-HLhhhL+Lp,-)-L+-"-B-------`1}\@Ԯ-`e  8 s+ 'h  H C&h `H f"h1}`8 ^ ^ ^ ^! `JJ( JJi`3 e҅ݽ!eӅeօߊeׅ(ݑ`1}?`ܢ).0ԆJ؆٥).). 0... 0㭜..ͥ.ʆ81}) ....I.e8)..I. e҅ݽ!eӅަ`LE0 eօ߽!eׅ`LE0(ݕ)1}8 /.0ZR&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&L/㴀0..1}Ls/`JJ( .e8JJ( 8.i`?<<<300030003001}0   ?<<<300030003000   ?<<<300030001}3000   W "  < = > ? @ C D `\ 7^ȅ1}^0W `W G !"#$%Iֿ0P4/5W `W !Iֿ01}!#[ ҍ) ҢIֿQ  ;P A / B X Z + f g h' 8', * ^ 6 1}@Ԣ'j \8 3HԢ_@U _& ֿ ; !"[ #@ԩ7 4 4 W `^  L@ C& f" MA` 0 1}*4 8b c b A >a X?L3`` ="@6X6X6X6X6X6X6X6X6X6X6=)4=)46< 664)4666)4>)4Q>4p>v=)4U64)4\;=)1}444444O=55)4)4)4)4558585)4``^ I^ `La= :`` &' ( $K I1})88)yI` >` 5L4*  . H` 5L4:* 51ʽ`` 4 U Lq5U _1} H . F f"`` 8 ` ` . .2* -` ,'55华5 Q> {95 55`55华5 p> 95 55`1}58 =")4)4\===>```` Q>77777 Ld7`i Ii G:H:`L3` ʥ =")4\)488871}787)886)466)-L6ʥ)--8l `&ee`878`78`1}8F 7 `77 7 7䮘770 id7L770 i 7L770 i7L077͛7777[ X 0 71}X 77 68 . . ; C _D Q> `K `0 I. / l `) 75ʊ01 0`'& 1} &.L8 H .g F`, - l `_ l `' ʎ( l ```(8& D; 1 (8 &@(81 2 ^B31} 0 E ?`8 ^ ^! Ji/ O :H  .c g F` H80i8-h8`88-`1}ʎ< `* a0 + O . S98a 3, .- ), - H' (  :' ( ( + ^  XG0  :` =")4)4)1}4)4)4)4)4)4{99)4)4 \::9D:! :X  B I: :`)% :] [ X ] 1} 6 1B I: :`+ :` A I: :`IQ L9 : .L9 A  B < D C `L9i G: 1}H:`` j i X X X j X [ `8 X X  X 1}`- 3`* ( :* 8   ^B E`* 0 / . , - 8 f"`)`& ^B E =1} C` :  &@ {;& = &.`  :L;IQ  A` ; ; ; ;L; ; ; ; 1};;;ƀ`A* <6 .g FL< }E ; _Dd 3 F 7 E` .`* `1}L=4<5<2<i ߥ3` V; a=`  c `  c l ` G> {; D;` = c , 1}- : l ` =  c : l ` =  c : l ` =  :l 1}8-`f ` =  :l ` = :l ` ! =">)4)4)4)4)4>)4)4)4)4)4\?)4?)4) 1}7 HL>ʽ`# U L>U _ &. f"` tG` =")4??? G`#0"d 03 d 3 3 E1 1}2 f"`d 03 ʎ3 d 3 L4? ` =")4)4)4)4)4)4?)4E@E@)4)4 \E@E@?E@ DA `) DF 7 6) ʊ eꨭ71}0`1`7 ?7` =")4??&@a `d `c F 7 . }E ; _Dg F ?`F 7 1}c BEf ?` : ?`X @K A_ A' A,  A) A 8 A  A8 A8 1} AL@0 A1 Ai @L@@]@`\@`\&!3+*,.#x)Ŀſ1}JJJJפּI `75 <+@BHI V5 ɛ% J I` `` ` BE vB` A1}d e b:8j j e d 0 iLA C }Ef e  DLB ; _D`d e b: C5 DL1}-B ; _D`d e : C5 DLZB ; _D`d 0 ^2 3 `Q C ȭR D ȭS ȭT ȭA ȭB 1}ȭ8 88 8Dd 00D+D^Ƚ^Ȅ ȱȊDLB LB`d JC Q 1}ȱJD R ȱS ȱT ȱA ȱB C D < A  B  IK Q 0IQ J1}JJJrB)sBȱJJJJtB)uB8 rB8 rB0i-Ҡ cW1 LCd d ^ȱ^ 1}ȱȄȑ^8 Ƚ^Ƚ^LC`d `DD^8 ^YD^ZD^]D^^DD [D1}ȱ\D ҭ ӭYDԭZDխ ֭ ׭[Dح\D٭]Dڭ^D۩ .Dd D`e `AEAE` D ҭ ӭ1}DԭDխ ֭ ׭DحD G.AEe AE`1  }Ed  F 7 `d d ^1 ^  `d 0 ^1 `D1}Dd '^^^^ ȱDLEd `3 d 0 ^1 ^   u!``g f  1F`f1} E E E 1F pF` ҭ ӭEԭEխ ֭ ׭EحE٭EڭE۩ .f `E8 ^E^E^E1}^E E E ҭ ӭEԭEխ ֭ ׭EحE٭EڭE۩ . ҭ ӭEԭEխ ֭ ׭EحE٭EڭE1} .f `&G-G0-G-Gɼ`//TG0UG1/`)Т/ ` e e 1} _  _  ` . <0 ɠ) JI  # m  Ji   m   80 `%  1}# m! _m!    m  :H  g F` J 8᪭ 8! iࡐϰLnH Iia`LH! I1}i`)  H H`) ʊ eꪽ0` ``8 ^ ^! :H  `HH骽IEO%NHIEO%N ԍh1}hh@?4016+2345*)(& '  !"#$,- 1} !"#$apx< 1}OV  TVR RQ YQS"ÿ+VL_NO LZ WZ (O 9P P1}VLfJ jSLfJ  cQLfJ  WLfJ  &SLfJ WLfJ :QLfJ O`  3VLfJК XLfJ CATALOG files  GET file 1}  KEEP file  RENAME file  DELETE file  FORMAT disk  SELECT drive  MAIN MENU  RECORD 1} use ARROWS and RETURN to select CLEAR memory  SHAPE  BACKGROUND  ANIMATION 1}  SOUND  EXTRA FUNCTION  EVERYTHING  UTILITY MENU WHAT SHOULD1} I CATALOG?FILES ON DRIVE 1HIT RETURN TO CONTINUE UTILITY MENU WHICH  F1}ILESHOULD I  OLD NAME?NEW NAME?PRESS Y TO CONFIRM ORRETURN FOR UTILITY MENUNEW DRIVE NUMBER [1-2]?1}DRIVE NOT RESPONDINGCAN'T READ/WRITE FILEDISK FULLBAD SECTOR LINKSILLEGAL FILE NAMEFILE LOCKEDDIRECTORY Xhxhxx ,00,@@  0 P ( ddh`J22x0Z<@aRLL- @0)@&@&@ `  @!3BU`q  `0hh``x00BBfZZ<!!3-- @@ @ @keõRRRRRRRR@@@   ```HHHxx000$$$<<  -L[kzo'O8`8`PLHD@<`dhlpt     ?!3BU`q???@ ꓃tFL5RRRRRRRR???x@x@< @<  88???x@x@< @@< p @p $] (7o'O0H`x0x`H   @@ pp 8||8>>pp8||8>>??ʥPc@x~RRRRRRRR||>>????||>>????s2o'O @`(D`($ $(PH@@HP 90U@@@@@@@ !3BU`q@@@@@@ p 8~?RRRRRRRR@@P@@ pp 8T8* @@PHP@ p$p 8TT8*I*$ @ @ @1Aapo'O@`P@ 0P`@`PpP@ `P`p (2Pd~ p0  hzzxxx<<<~Z^^?-/@?/@ @!3BU`q00  CCp!!p8????8``/$ɂ`qRRRRRRRR  hxxzzZ~<<-?^^/@?/@ @p  p88a??a0??0@@8q.00?  !3BU`q0p0fv~~~nf3;???73  ```wY f?RRRRRRRR00|fbbbf|>31113> @ @ @ `   ````````0000000 O *o'O